home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / spiele / publicdomain / ls-tron3.1 / ls-tron-types.i < prev    next >
Text File  |  1996-04-30  |  5KB  |  99 lines
  1. { LS-Tron-Types.i }
  2.  
  3. TYPE SmallArray = ARRAY[0..4] OF SHORT;
  4.      BigArray = ARRAY[0..5] OF SHORT;
  5.      MouseCArray = ARRAY[0..5] OF SHORT;
  6.      MouseCArrayPtr = ^MouseCArray;
  7.      MouseArray = ARRAY[1..28] OF SHORT;
  8.      MouseArrayPtr = ^MouseArray;
  9.  
  10.      Control     = RECORD
  11.                      links,
  12.                      rechts,
  13.                      vorne : SHORT;
  14.                    END;
  15.      controlPtr  = ^Control;
  16.  
  17.      Koord       = ARRAY[1..6] OF SHORT;
  18.  
  19.      Position    = RECORD
  20.                      x,y : SHORT;
  21.                    END;
  22.  
  23.      Strichschen = ARRAY[1..maximum] OF Position;
  24.  
  25.      ControlAray = ARRAY[1..maxPlay] OF Control;
  26.  
  27.      ColourArray = ARRAY[0..19] OF RECORD
  28.                                      r,g,b : BYTE; { Rot-,Grün- & Blau-Werte}
  29.                                    END;
  30.  
  31.      BackArray   = ARRAY[1..4] OF RECORD
  32.                                     r,g,b : BYTE;
  33.                                   END;
  34.  
  35.      linie = RECORD
  36.                colour,
  37.                x1,y1,
  38.                x2,y2  : SHORT;
  39.              END;
  40.  
  41.      Maze    = RECORD
  42.                  MazeDir,
  43.                  MazeName : STRING;
  44.                  Loeschen : BOOLEAN;
  45.                  Players  : ARRAY[1..maxplay] OF RECORD
  46.                                                    Ist_geladen  : BOOLEAN;
  47.                                                    Pos,Bewegung : Position;
  48.                                                  END;
  49.                  LineNum  : INTEGER;
  50.                  Linien   : ^ARRAY[1..2] OF Linie;
  51.                END;
  52.      MazePtr = ^Maze;
  53.  
  54.      Spieler = RECORD
  55.                  x,y,                 { Position                          }
  56.                  mx,my,               { Bewegung (x+y)                    }
  57.                  Score     : SHORT;   { Punkte für Sieg etc.              }
  58.                  Strich    : Strichschen; { Wo waren wir denn mal?        }
  59.                  Pos       : SHORT;   { Welcher Pixel soll verschwinden?  }
  60.                  Hits      : BYTE;    { Anzahl der Gegner, die er zerstört}
  61.                                       { hat.                              }
  62.                  Name      : STRING;  { Name des Spielers                 }
  63.                  Ausweicher,          { Für Computergegner                }
  64.                  Lastleft,            { Variablen für Fehlerabfang bei    }
  65.                  Lastright : BOOLEAN; { Joystickbenutzung                 }
  66.                  Left      : SHORT;   { Wie ist das Verhältnis links zu r.}
  67.                  KI        : BYTE;    { Welche Bewegungsmethode nutzt er? }
  68.                  Turbo,               { Compi hat Turbolader?             }
  69.                  Ok,                  { Spieler in Ordnung?               }
  70.                  Destroyed,           { Zu nah an einer Explosion?        }
  71.                  Complayer : BOOLEAN; { Computerspieler?                  }
  72.                  PlControl : Control; { Tasten zur Steuerung              }
  73.                  Steuerung : BYTE;    { Welche Art von Steuerung          }
  74.                  ID        : BYTE;    { Spielernummer                     }
  75.                END;
  76.      SpielerPtr = ^Spieler;
  77.  
  78.      TronBase = RECORD
  79.                   TronDir    : STRING;{ Verzeichnis in dem LS-Tron        }
  80.                                       { sich befindet                     }
  81.                   player,             { gesammte Spieleranzahl            }
  82.                   remain,             { Spieleranzahl (noch übrig)        }
  83.                   human,              { menschliche Spieler               }
  84.                   Speed,              { Geschwindigkeit                   }
  85.                   level,
  86.                   Third,secnd,first,  { 1., 2., 3.Platz                   }
  87.                   max_Length : SHORT; { maximale Strichlänge(0=Aus)       }
  88.                   Players    : ARRAY[1..maxPlay] OF Spieler;{ Spielerdaten}
  89.                   sprache    : CHAR;  { ???                               }
  90.                   BackColour : BYTE;  { Hintergrundfarbe                  }
  91.                   MyMaze     : Maze;  { Labyrinth-Verzeichnis und -Datei  }
  92.                   Maze_Loaded,        { Labyrinth-Datei geladen?          }
  93.                   Use_Maze,           { Soll Labyrinth benutzt werden?    }
  94.                   sound,              { Sound geladen und abgespielt?     }
  95.                   Unentschieden,      { Wurde ein Spiel o. Sieger beendet?}
  96.                   Quitgame   : BOOLEAN; { Spiel abbrechen?                }
  97.                 END;
  98.       TronBasePtr = ^TronBase;
  99.